Sub muestra_Do_While_Loop()
    Dim a As Integer
    a = 5
    Do While a > 0
        Debug.Print "a = " & a
        a = a - 1
    Loop
End Sub
